Private Sub CommandButton1_Click()

    Dim Ʈ As Control
    Dim ɴ As Range
    
    Set ɴ = Range("E3")
    
    ɴ.ClearContents
        
    For Each Ʈ In UserForm1.Controls
    
        If TypeName(Ʈ) = "OptionButton" Then
        
            If Ʈ.Value = True Then

                ɴ.Value = Ʈ.Caption
                Exit For
                            
            End If
        
        End If
    
    Next

End Sub